home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / conv / CarriageRet.lha / CarriageRet / AmigavisionsLib / Print.a < prev    next >
Text File  |  1999-01-03  |  1KB  |  62 lines
  1. ********************************************************************************
  2. *
  3. *    Program:    Print text
  4. *    Filename:    Print.a
  5. *
  6. *    Contents:    Der durch a0.l addressierte Text (Nullterminiert)
  7. *            wird an _stdout ausgegeben
  8. *
  9. *    Language:    68000 Assembler
  10. *
  11. *    Author:        Johannes R. Geiss
  12. *
  13. *    Copyright:    Amigavisions
  14. *
  15. *    History:    $HISTORY:
  16. *            1.2 (26-Oct-91) changed JRG
  17. *            1.1 (10-Oct-91) changed JRG
  18. *            1.0 (08-Oct-91) written JRG
  19. *
  20. *    Version:    $VER: Print.a 1.2 (26-Oct-91)
  21. *
  22. ********************************************************************************
  23.  
  24.  
  25. *------ Includes
  26.     include 'xref.i'
  27.     include 'call.i'
  28.     include 'exec/types.i'
  29.     include 'libraries/dos.i'
  30.  
  31.  
  32. *------ Imports
  33.     XLIB    Write
  34.     xref    _DOSBase
  35.     xref    _stdout
  36.  
  37.  
  38. *------ Exports
  39.     xdef    Print
  40.  
  41.  
  42. ********************************************************************************
  43.  
  44.     SECTION Print
  45.  
  46. *------ Print procedure
  47. *
  48. * Input: a0.l Zeiger auf Text (Nullterminiert)
  49.  
  50. Print    movea.l a0,a1
  51. Loop    tst.b    (a0)+
  52.     bne.s    Loop
  53.     suba.l    a1,a0
  54.     movem.l d2-d3/a6,-(a7)
  55.     move.l    a0,d3
  56.     move.l    _stdout,d1
  57.     move.l    a1,d2
  58.     CALLDOS Write
  59.     movem.l (a7)+,d2-d3/a6
  60.     rts
  61.     END
  62.